home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAPG10.ZIP / 551.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-08-16  |  3KB  |  275 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     String   STRING001
  21.     String   STRING002
  22.     String   STRING003
  23.     String   STRING004
  24.     String   STRING005
  25.     String   STRING006
  26.     String   STRING007
  27.     String   STRING008
  28.     String   STRING009
  29.     String   STRING010
  30.     String   STRING011
  31.     Byte     BYTE001
  32.     Byte     BYTE002
  33.     Byte     BYTE003
  34.     Byte     BYTE004
  35.     Byte     BYTE005
  36.     Byte     BYTE006
  37.     Byte     BYTE007
  38.  
  39. ;------------------------------------------------------------------------------
  40.  
  41.     Gosub LABEL007
  42.     Gosub LABEL001
  43.     End
  44.     :LABEL001
  45.     Gosub LABEL006
  46.     BYTE001 = 5
  47.     Gosub LABEL005
  48.     BOOLEAN001 = 0
  49.     While (BOOLEAN001 == 0) Do
  50.         STRING001 = Asc(Inkey())
  51.         If (STRING001 == 13) Then
  52.             Gosub LABEL003
  53.             Continue
  54.         Endif
  55.         If ((STRING001 == 76) || (STRING001 == 44)) Then
  56.             Gosub LABEL004
  57.             Dec BYTE001
  58.             If (BYTE001 < 1) BYTE001 = 5
  59.             Gosub LABEL005
  60.             Continue
  61.         Endif
  62.         If ((STRING001 == 82) || (STRING001 == 46)) Then
  63.             Gosub LABEL004
  64.             Inc BYTE001
  65.             If (BYTE001 > 5) BYTE001 = 1
  66.             Gosub LABEL005
  67.             Continue
  68.         Endif
  69.         If ((STRING001 == 72) || (STRING001 == 104)) Then
  70.             Gosub LABEL004
  71.             BYTE001 = 1
  72.             Gosub LABEL002
  73.             Continue
  74.         Endif
  75.         If ((STRING001 == 65) || (STRING001 == 97)) Then
  76.             Gosub LABEL004
  77.             BYTE001 = 2
  78.             Gosub LABEL005
  79.             BOOLEAN001 = 1
  80.             Continue
  81.         Endif
  82.         If ((STRING001 == 82) || (STRING001 == 114)) Then
  83.             Gosub LABEL004
  84.             BYTE001 = 3
  85.             Gosub LABEL005
  86.             BOOLEAN001 = 1
  87.             Continue
  88.         Endif
  89.         If ((STRING001 == 76) || (STRING001 == 108)) Then
  90.             Gosub LABEL004
  91.             BYTE001 = 4
  92.             Gosub LABEL005
  93.             BOOLEAN001 = 1
  94.             Continue
  95.         Endif
  96.         If ((STRING001 == 81) || (STRING001 == 113)) Then
  97.             Gosub LABEL004
  98.             BYTE001 = 5
  99.             Gosub LABEL005
  100.             BOOLEAN001 = 1
  101.             Continue
  102.         Endif
  103.         If (STRING001 == 27) Then
  104.             Gosub LABEL004
  105.             BYTE001 = 5
  106.             Gosub LABEL005
  107.             BOOLEAN001 = 1
  108.         Endif
  109.     EndWhile
  110.     Gosub LABEL003
  111.     Return
  112.     :LABEL002
  113.     Newline
  114.     If (Exist(PPEPath() + "551HELP.PCB")) Then
  115.         DispFile PPEPath() + "551HELP.PCB", 0
  116.     Else
  117.         PrintLn "@X0CSorry, no help is available."
  118.     Endif
  119.     Gosub LABEL006
  120.     Gosub LABEL005
  121.     Return
  122.     :LABEL003
  123.     Select Case (BYTE001)
  124.         Case 1
  125.             Gosub LABEL002
  126.         Case 2
  127.             Newline
  128.             KbdStuff "A"
  129.             End
  130.         Case 3
  131.             Newline
  132.             KbdStuff "R"
  133.             End
  134.         Case 4
  135.             Newline
  136.             KbdStuff "L"
  137.             End
  138.         Case 5
  139.             Newline
  140.             KbdStuff Chr(13)
  141.             End
  142.     End Select
  143.     Return
  144.     :LABEL004
  145.     Select Case (BYTE001)
  146.         Case 1
  147.             Print Chr(13)
  148.             Forward BYTE003 - 1
  149.             Print STRING002
  150.         Case 2
  151.             Print Chr(13)
  152.             Forward BYTE004 - 1
  153.             Print STRING003
  154.         Case 3
  155.             Print Chr(13)
  156.             Forward BYTE005 - 1
  157.             Print STRING004
  158.         Case 4
  159.             Print Chr(13)
  160.             Forward BYTE006 - 1
  161.             Print STRING005
  162.         Case 5
  163.             Print Chr(13)
  164.             Forward BYTE007 - 1
  165.             Print STRING006
  166.     End Select
  167.     Return
  168.     :LABEL005
  169.     Select Case (BYTE001)
  170.         Case 1
  171.             Print Chr(13)
  172.             Forward BYTE003 - 1
  173.             Print STRING007
  174.         Case 2
  175.             Print Chr(13)
  176.             Forward BYTE004 - 1
  177.             Print STRING008
  178.         Case 3
  179.             Print Chr(13)
  180.             Forward BYTE005 - 1
  181.             Print STRING009
  182.         Case 4
  183.             Print Chr(13)
  184.             Forward BYTE006 - 1
  185.             Print STRING010
  186.         Case 5
  187.             Print Chr(13)
  188.             Forward BYTE007 - 1
  189.             Print STRING011
  190.     End Select
  191.     Return
  192.     :LABEL006
  193.     Print ReadLine(PPEPath() + "551.CFG", 1)
  194.     BYTE002 = GetY()
  195.     BYTE003 = GetX()
  196.     Print STRING002 + "  "
  197.     BYTE004 = GetX()
  198.     Print STRING003 + "  "
  199.     BYTE005 = GetX()
  200.     Print STRING004 + "  "
  201.     BYTE006 = GetX()
  202.     Print STRING005 + "  "
  203.     BYTE007 = GetX()
  204.     Print STRING006 + "  "
  205.     Return
  206.     :LABEL007
  207.     STRING002 = ReadLine(PPEPath() + "551.CFG", 2)
  208.     STRING003 = ReadLine(PPEPath() + "551.CFG", 3)
  209.     STRING004 = ReadLine(PPEPath() + "551.CFG", 4)
  210.     STRING005 = ReadLine(PPEPath() + "551.CFG", 5)
  211.     STRING006 = ReadLine(PPEPath() + "551.CFG", 6)
  212.     STRING007 = ReadLine(PPEPath() + "551.CFG", 7)
  213.     STRING008 = ReadLine(PPEPath() + "551.CFG", 8)
  214.     STRING009 = ReadLine(PPEPath() + "551.CFG", 9)
  215.     STRING010 = ReadLine(PPEPath() + "551.CFG", 10)
  216.     STRING011 = ReadLine(PPEPath() + "551.CFG", 11)
  217.     Return
  218.  
  219. ;------------------------------------------------------------------------------
  220. ;
  221. ; Usage report (before postprocessing)
  222. ;
  223. ; ■ Statements used :
  224. ;
  225. ;    5       End
  226. ;    48      Goto 
  227. ;    32      Let 
  228. ;    26      Print 
  229. ;    1       PrintLn 
  230. ;    28      If 
  231. ;    1       DispFile 
  232. ;    25      Gosub 
  233. ;    7       Return
  234. ;    1       Inc 
  235. ;    1       Dec 
  236. ;    5       Newline
  237. ;    4       KbdStuff 
  238. ;    10      Forward 
  239. ;
  240. ;
  241. ; ■ Functions used :
  242. ;
  243. ;    18      +
  244. ;    10      -
  245. ;    32      ==
  246. ;    1       <
  247. ;    1       >
  248. ;    26      !
  249. ;    7       ||
  250. ;    11      Chr()
  251. ;    1       Asc()
  252. ;    1       Inkey()
  253. ;    13      PPEPath()
  254. ;    11      ReadLine()
  255. ;    1       Exist()
  256. ;    5       GetX()
  257. ;    1       GetY()
  258. ;
  259. ;------------------------------------------------------------------------------
  260. ;
  261. ; Analysis flags : No flag
  262. ;
  263. ;------------------------------------------------------------------------------
  264. ;
  265. ; Postprocessing report
  266. ;
  267. ;    0       For/Next
  268. ;    1       While/EndWhile
  269. ;    10      If/Then or If/Then/Else
  270. ;    3       Select Case
  271. ;
  272. ;------------------------------------------------------------------------------
  273. ;                 AEGiS Corp - Break the routines, code against the machines!
  274. ;------------------------------------------------------------------------------
  275.